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LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
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LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
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able of contents 


(2) 4 ; Detailed current edit history 
(5) g DECLARATIONS 

(5) soCvT F = convert text to F_floating 

(7) 4 one alTzation 

(8) Main = 

(11) End-of-string procece tng 

(14) Table of offsets to action routines 


i 


—E 8 
rage" Camere cert to reat cH ony) SY ERIRES A:T) MINT SRSA ns "OP cy 
EME Sissy" Dicgt eae a: 
- t: JCW1005 


RRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEARAAAAEARAEAAAAAEAEAAEEAAAEAAETAEAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQU a CORPORATION, ° MAYNARD. MASSACHUSETTS. 
L RIGHTS RESERVED 


S fe Kern i$ A ght UNDER A LICENSE AND MAY BE USED AND core’ 
Y acco Oe NCE WITH THE TERMS OF SUCH of tGan SE AND WITH THE 
LU TON OF THE ABOVE Syilhod NOTICE. THIS SOFTWARE OR ANY OTHER 
IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
” 
* 
« 
* 
* 
* 
« 
® 
* 

TRANSFERRED. * 
a 
* 
* 
t 
* 
* 
® 
* 
8 
+ 


csses > 
=OoO2zZzrt rr 
xzVvVoOre 


cab ook Ht ud Dd Wd oe bt 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAt ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: Language-independent support Library 

ABSTRACT: 
Por torar conversion of character strings containing numbers to 
the F_floating data type. This routine supports Fortran F, E, D 
and G format conversion, as well as similar types in other 
Languages. 

ENVIRONMENT: Runs at any access mode, AST Reentrant 

AUTHOR: John A. Wheeler, 17-Apr-1981: Version 1 


MODIFIED BY: 
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TSSCVTTF ; Convert text to real (F only) 16-SEP-1984 00:29:1 AX/VMS Macro V04-00 Page 
O1855 histoRY ; Detailed current Lait histor g-8 sats vi 90:98:15 YTORTL. SREIOTSCVTTP MAR: 1 . 3) 
-SBTTL HISTORY ; Detailed current edit history 
EDIT HISTORY: 


1-001 - Original. JAW 17-Apr-1981 

\- ¢ = Don't define HANDLER as global symbol. SBL 13-May-1981 

1- - Add call to OTSSCVT_T_D to assure a correct lysrounded result 
n all geces. Also sapreve exception handler. JAW 12-Jul-1981 

1-004 = Add logic to handle tabs amid leading spaces. Add check for 
epth in handler. Add check of result of OTSSCVT_T_D. Remove 
pastryer ren wares canceled handler. Note ASCII dependencies. 


1-005 = If ext_bits was not omitted from the parameter ist. but was 
zero, @ protection violation was caused by MOVB R5, @ext_bits(AP). 
i a will testing the routine to see what it would do. 


PEED MATT 


WR OOONAUE Wt" OOOon 


Fk 


6 8 
eager befETanelgt® © reel (Font) “TRESS EAE) USIRE SESE EOGAP mans "OOP 


5 ; -SBTTL DECLARATIONS 

5 } LIBRARY MACRO CALLS: 

, SPSLDEF ; PSL$ symbols 

stds i 3; CHFS symbols 

: SSDE 3; SS$ symbols 

; : EXTERNAL SYMBOLS: 

_" -DSABL GBL : Require all external symbols to be decl 
76 “EXTRN OTS$_INPCONERR . 4 pe atlinaans iat 
73 eEXTRN OTSSCVT_T_D ; OD floating input conversion 

9 : MACROS: 

3 : NONE 

4 > PSECT DECLARATIONS: 

6 : -PSECT _OTSSCODE PIC, SHR, QUAD, EXE, NOWRT 

8 ; EQUATED SYMBOLS: 

: Flags passed by the caller (relocated from bits 9:6 to bits 8:14, to 
$3 3 allow this routine's local flags to be referenced with BICB and 61SB). 
9 oO 
94 V_SKIPBLANKS = 8 : If set, blanks are ignored. 

95 ; (Bit 0 for caller) 
96 V_ONLY_E = 9 :; If set, only E or e exponents 
9 : are allowed (BASIC+2, PL/I). 
; (Bit 1 f ler) 

V_ERR_UFLO = 10 :; If set, underflow is an error. 
1 3; (Bit 2 for caller) 
101 V_DONTROUND = 11 ; If set, don't round value. 
1 § ; (Bit 5 for caller) 
105 V_SKIPTABS = 12 : If set, tabs are ignored. 
104 3; (Bit 4 for caller) 
105 V_EXP_LETTER = 13 : If set, an exponent must begin 
1 ; with a valid exponent letter. 
1 ; If clear, the exponent letter 
4 3 ma be qartted 
1 ; (Bit 5 for ca ier) 
110 V_FORCESCALE = 14 ; If set, the scale factor is 
11 3 gluays applied. If clear, it 
11 : is only applied if there is no 
11 3 exponent present in the string 
ig 3; (Bit 6 for caller) 


eggs iefORtRFokgT® to reat «Ponty " "  tgcseectoee onseReys UTanTE. SReSrSevTte .man;1 88" dy 


3; Local flags. Don se bits 0, 1, 3 or 5, which et when the 

3 sign charscter 2038 oF R55 % OR'ed into R2. RE sf dependency.) 
' V_MINUS s ? 3; Minus sign seen--MUST BE BIT 2 
' V_SIGN S 3; Sign (plus or minus) seen 
' V_POINT = § ; Decimal point seen 
V_EXPO = ; Exponent seen 
OC 1 g M_SIGN = 18V_SIGN ; Mask for V_SIGN 
‘ 1 § M_MINUS = 1aV_MINUS 3; Mask for V_MINUS 

! i M_POINT = 1aV_POINT 3; Mask for V_POINT 


cae 


brSSeveTt F* 
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-SBTTL OTSSCVT_T_F = convert text to F_floating 


3+ 
3 FUNCTIONAL DESCRIPTION: 


OTSSCVT_T_F — a text string os a representation 
of a numeric value to an F To Mi ld bt ation of that 
value. The routine supports FORTR E, D and G input type 
conversion as well as similar types for other Languages. 


The description of the text representation converted b 
OTSSCVT_T TF is as follows: . . 


o,9r nore yo 


ce 
2 0 of more pcton "Tigits> 
or noth 
<0" or more ject? - digits> 
senpenant or we ng a where © sppone ns. Thies "q 


or 
<''4"* r oe ='">> 
<0 or more decimal digits>> 
<end of string> 


Notes: 1. “yo: the caller flag bit V_SKIPBLANKS 
et, blanks are equivalent to 
dec inal If V_SKIPBLANKS is set, 
blanks are always Tgnored. 
2. There is no difference in semantics 
rereees any of the 6 valid exponent 


let 

3. if hy caller flag bit V ony 7 is set. 
the ang’ ets lan exponent Tett 
“_ ony others wilt “be treated 
as en nvat d char 


4. If the caller flag “Bits V_SKIPTABS is set, 
ca eneracters are ignored else they are 
5. If the caller f ag bit V_EXP_LETTER is set, 
the exponent, i present. must, start with 
a valid exponent letter, e.g. 1.2E 
Ir" clears "e exponent letter may be omitted, 


CALLING SEQUENCE: 
status.wic.v = ws bap TF Cin _str.rt.dx, value.wf.r 


igitS_in_fract.rlu.v 
. * Scele. Tactor.rl.v 


* oxtebits.e +459" 


tm 


ef 
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INPUT PARAMETERS: 


00000004 inp str = 4 ; Input string descriptor 
0000000C digits_in_fract = 12 ; If no dec ingl point is 
i 3 Eresens n input, specifies 
YM 3; how many Hy are to be 
M ; treated as ng to the right 
: of the ot ae point. 
a : If omitted, 0 is the default. 
00000010 D6 scale_factor = 16 : Signed scale factor. If 
4! ; present, and exponent absent 
OC ; the result value is divided by 
' : 10**factor. If V_FORCESCALE 
4 ; is set, the scale factor is 
; always applied. 
00000014 flags = 20 3; Flags supplied by caller 
; IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
00000008 value = 8 ; Floating result by reference 
00000018 ext_bits = 24 If present, the value will 


NOT be rounded and the first 
8 bits after truncation will 
be returned in this argument 
as a byte. This value is 
suitable for use ag the 
extension operand in an EMOD 
instruction. 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


OTSS_INPCONERR = Error if HtLopet character in 
overflow, or Tloating underfl 


S$S$_NORMAL - Success 


SIDE EFFECTS: 
NONE 


= co = oe oe oe eee ++ o> oo ——— = 
= 2 === SOOO OOOS 
= — oo oe oe oe ee — . oe eo oe oe oe eS + 
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s SONAR ASSSLEAR WLS SS GEARS SSO UE 
owoc = DOONAN EWN $$ CO OONAUS WO OO UENO NAN 

Se Ge Ge Ge Ge Ge Ge 
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-SBTTL Initialization 


ge 
; Register usage: 


RO:R1 tor for input strin 
ne - flags g aller's and ours) . 


- dig fs n_ fraction 
R4:R5 = signiffcand, as D_floating number 
next chores ter 


utility req ater 

count of digits held in R9 ‘up to 9) 
digit a cusul eter 

count of significant digits seen 


= 
eeecee 


; NOTE: This routine contains specific dependencies on the ASCII 
character set, as noted in comments throughout. 
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2¢ 


>_> 


O7FC sENTRY OTSSCVT_T_F, “M<R2, R3, R4, RS, R6, R7, RB, RY, R1I0> 


3¢ 
3 Initialization 


50 04 BS 7D 000 @inp_str( AP), RO ; RO:R1 = gtring descriptor. 
7C = 000 CLRQ 3 flags and digits_in_fract = 0. 
05 91 000 CMPB (AP), #<flags/4> 3: Is fifth argument present? 
1F 000 BLSSU ; Branch if not. leaving R2 = 0. 
52 14 AC 78 00 ASHL #8, flags(AP), R2 ; Get caller flags & clear ours. 
7c OC 10$ CLRD RG 3 R4:RS (significand) = 


Begin digit accumulation for fraction or exponent 


CLRQ RB Count and accumulator = 90 
CLAL R10 3 Significant digit count = 0 


RESTRT: SKPC #*a/ /, RO, (R1) Skip blanks (clears cee bie 
BBC ay Sk PTABS, R2, NEXT Branch if tabs are i Legal, 
RO, R Save chores yer pointer in R7. 
SkPC 0 #*A/ ss /, RO, (RI) Skip tabs if present. 
CMPL RO, R7 Were om tabs skipped? 
BNEQ RESTRT If so, try for more blanks. 
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add 


56 a1 
12 
68 56 06 


F1 52 3 


0 

5A 

25 

02 5A #6 
12 58 09 
D4 oF 
54 20° : 
58 


. fenyert text to real (F only) 
fain loop 


StmMOU=uA 
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SOUN—O8 NNN 
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-SBTTL Main Loop 
SOBGEQ RO, 10$ 
RW N 


CVTBL R1)+, R6 

BLSS ERROR 

BBSC #6, R6, LETTER 
MOVZBL wore SET ERG! R7 
JMP B*ACTIONCR 


BBS #V_SKIPTABS, R2, 
#OTS$_INPCONERR, 
@value (AP) 


i" 


Decimal point 


ww 
o 
bee 
, 4 
— 


BBSS aY-POINT, R2, ERROR 
CLRL R 

BRB DIGDON 

BBS #V_SKIPBLANKS, R2, NEXT 
MOVB #*K/0/, R6 

TSTW R10 

BEQL NONSIG 


(1-9, or significant zero) 


AOBLEQ #38, R10, USE 
BRB né 


1 
AOBLEQ a9" iS R 

BBS av“ ExPd, Roe ERROR 
CVILD oR 

MULD wW*fEND, RO 
ADDD = RB, -—R4 


"SSEp=1986 F980 


ee 


AX/VMS Macro V04-00 
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Check for end of string. 

Branch at end. 

Fetch next eerettee: 
rror if between 128 and 255. 
ASCII dependency.) 

Branch if between 64 and jer 
and map character to 0:63. 
(ASCII dependency.) 

Get branch displacement. 

Dispatch to action routine. 


If tabs are legal, ignore. 
Else error. 

Store zero as result on error. 
Return to caller. 


If 2nd decimal point, error. 
Reset digits_in_fraction. 
Go indicate sign now known. 


If BLANK=NULL, ignore blank. 
Otherwise treat as a zero. 


Has significance sterted yet? 
Branch if nonsignificant zero. 


Are we beyond the 38th gigit? 
Yes: treat as nonsignif ay Om 
If _expone ; 


t in 
No. HH d git. error. 
Float R9 into R8B:R9. 
Accumulate a super-digit. 


a By 


2 
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TSSCVTITF got text to real (F only) -$ ~ 4 AX/VMS Macro V04- ms Pa 
#805 oh - . Breen 8be Siitsieo FetaRTe cacdorecursy mar; ame 
58 01 45 mova #1, R8 3 Re (digit count) = 1 
1 ; RY (digit accumulator) = 0 
59 6949 48 ROOM: MOVAL tRO)CR ; Multiply R9 by 10 and add the 
59 DO A649 RF 4 MOVAW =-*x3 Ras cho2. RY : i fein 6 (strip, zone bits). 
3 ency. 
53 39 NONSIG: INCL R3 ; Count di igit Oo HFaction. 
52 10 § DIGDON: BI1SB #M_SIGN, R2 3; Indicate sign now known. 
99 11 z BRB NERT ; Go get next character. 


N 8 
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| ; _Sign (+ or =) (*X2B or “X2D, respectively) 
05 4 9 é SIGN:  6B8SS *y 5} N, R2, SIGN2 3 Beane h if second si 
2 % 4 9 SIGNI: BISB RS ; OR the sign character” into R2. 
3A ; aap dependency.) 
,. wa A 4 BRB ; Go get next charee er. 
Ad 52 D €0 9 5 SIGN2: B8BS i. EXP. LETTER, R2, ERROR ; If letter is required, error. 
? dg “ § Aust ; Throw back the second sign, 
E it A ie BRB : and pretend we saw an E. 
A + 
HE _Any character whose value is “X40 or greater (normally a letter) 
A 75°" 
99 C3°AF 6 69 A 74 LETTER: BBS 6. B“LT ; Branch if letter is E or e. 
oB° Ae 3 E . 75 BBC R6, Bet Hod SERROR : Branch if letter is not DdQq. 
95 5 50 ik: pa: BBS av gohe- : If D or Q@ not all owed, error. 
: 9 4 77 E: B1CB anos “ke 3; Allow sion again after letter. 
BE Fe 7 ee EXPO BBSS ay atta R2, ERROR 3; If second exponent, error. 
3 088 7 BRB TERM : Go erminate the. s igni ticand. 
4 0 : Equivalent to BSB 
52 9% " D 1 EXPO1: BICB #M_MINUS, R2 : Restore default aten (plus). 
FFS5S 1 o¢ 6 BRW RESTRT : Go restart digit accumulation. 
C 4 : 
be t : Bit vectors for use in identifying valid exponent letters. 
¢ = 
00000020 00000020 gf 8 LTRE: .QUAD %*x0000002000000020 3; Bits to identify E and e. 
bce 89 : (ASCII dependency.) 
00020010 00020010 ce 90 LTRDQ: .QUAD %*x0002001000020010 ; Bits to identify D, Q, d, q. 
0D 91 : (ASCII dependency. } 


8B 9 
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i 3 -SBTTL End-of-string eter 


0 a oe D 5 END: BBC ay EXPO TERM ; Branch if no exponent seen. 
4 § E1 D $ his," a5, FINISH ; Is the exponent negative? 
rf DB 9 MNEGL 3; Yes: negate it. 
D 4 38 BRB TMIsH 3; Go finish up. 
E 400 ;+ 
E 401 ; Terminate the plontttcand. (The code between TERM and TERMX is also 
; ? § : ‘called’ at EXPO.) 
EO 404 ° 
54 Le E 405 TERM:  TSTD R4& ; Were there wore than 9 digits? 
56 $6 GE ORL 08 erItD ROT RG Btn Bay digi 
3; Yes: floa nal super- t. 
54 ONDBTCRAR Gk OOOE? 208 ULD W°fENTABLR8J, R4 3 Make room in ses dil 
54 38 60 ED 409 ADDD R6, R4 : Accumulate final super-digit. 
03 (11 4 410 BRB 20$ : Continue. 
Ss WW ¢ F 412 10$: CVTLD RY, RS ; Float the si nificand. | 
03 52 9 Fi OF 218 20S: BBC #V_MINUS, R2, 30$ ; Was there a Stews sign 
4 4 § OF9 414 MNEGD R4, R4 3; Yes: negate the resu “ 
0B 52 06 € 4 415 30$: BBSS #V_POINT, R2, 50$ ; Was there a decimal point? 
8 218 3; Disallow second decimal point. 
53 d4& 010 $18 40$: CLRL R3 Set digits_in_fract to 0. 
03 6C 91 0102 41 CMPBs«C AP), #<digits_in_fract/4> 3 Is third aFgunent present? 
06 1F 010 420 BLSSU 50$ : Branch " not. 
53 OC AC OD 107 = 421 MOVL digits in fract(AP), R3 ; Yes: use the argument. 
A : C 1 4 ¢ 50$: SUBL #38, RTO 3 Did we ignore any digits? 
1 1 4 BLEQ 60$ : Branch i 
53 A C2 011 424 SUBL R10, R3 : If so, reduce R3 accordingly. 
53 bp 11 425 60$: PUSHL R3 3 pave -cigits. in_fract on stack. 
58 C O11 426 CLRQ R8 3; Count and accumulator = 0 
SA D4 Q11 427 CLRL R10 3 Significand digit count = 0 
XM: VLEXPO, R2, EX ; Continue at EXPO V EXPO= 
AO 52 O07 €0 0119 428 TERM BBS #V_EXPO, R2, EXPO1 Conti EXPO1 if %. 
110 2 3 3 Otherwise continue at FINISH. 
11D 431 ;¢ 
; Here to finish up. ie significand is in n oating, and the 
11D 4 H finish 3 The significand is in R4:R5 in D_floati d th 
We 2 Z ; exponent is in RY as an integer. Digits_in_fract is on the stack. 
11D 435° 
54 Le 11D 4 § FINISH: TSTD 4 H is the signi figand zero? 
1 11F 64 BEQL STORE1 : so, no scaling is needed. 
04 Cc 91 #01217 4 8 CMPB (AP), #<scale_factor/4> ; A fours? 2 erqunent present? 
ee, 124 4 BLSSU NOSF 3; Branch i 
4 3 3 E 126 440 BBS Nv EOREESEALE R2, APSF ; Branch it scot ing is required. 
E A BBS 7 NOS 3 Branch xponent is present. 
by 1 441 R2 qxpe i 
9 Wact C ! re od SUBL sea ~ Pector(AP). RS 3 Apply ouptiate scale factor. 
30°CF a 1 444 MOVAB W*HANDLER, (FP) 3; Establish exception handler. 
7 A E 1 445 BBC #V_ERR “UFLO, R2, 10$ ; Is underflow an error? 
F B68 Q1 238 BISPSW #PSLSM"FU : Yes: enable it 
: : = or use in 
A= € 13— 447 10$ MNEGL R RO = -10 (f in ACBL) 
ee . 149 448 SUBL  (SPS+, R9 ; Apply digits in fraction. 
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14 451 ;+ 
1? ? ; We now have the final scale factor (FSF) in R9. 
145 454° 
D 13 Q16 455 BEQL STORE ; If zero, no scaling is needed. 
F 16 0147 & : BGTR POSFSE : Branch if FSF is positive. 
se ae ee ee L Ctinug uth negative F3 
3; Continue w negative ‘ 
54 0228°CE Ice 26 wecx: BvD -NETENTO, Ro i Divide Ra by 108s10. 
1F 1 460 BEQL STOR 3; If R4 goes to zero, quit. 
te 59 38 oe ty 461 NEGFSF: ACBL #1, RO, RY nit ; Deduct 10 from FSF and test. 
4 0228'CF49 1 4 : DIVD Ww fENTAB+*680CR9], R4 =: Apply remainder of FSF. 
11 1 1 Pht BRB STORE 3 Continue. 
re gee"ee 64 016 465 POSX: MULD W*TENIO, R4 3 Buleiply R4 by 10**10. 
FFFS 59 01 Fi 016 £08 POSFSF: ACBL #1, RO, RY yet: ; Deduct 10 from FSF and test. 
54 0228'CF49 «64 16 46 : MULD  wW*°fENTAB+*O80CR9], R4 =: Apply remainder of FSF. 
b194 4g 3; Test the result to see whether rounding error could have affected the 
0174 470 ; 25th fraction bit, which is the rounding bit for the conversion to F. 
Bree 471 ; A carry into this bit may have occurred if it is a one followed by a 
174 ti6 3 string of zeroes, or is a zero followed by a string of ones. The 
0174 473 ; error cannot exceed 8 LSB, since a maximum of sixteen floating-point 
pitt are ; instructions capable of introducing error have been executed. 
57 55 OO0FOO00 8F CB 0174 476 STORE: BICL3 #*x000F0000 R5, R7 ; Mask off low-order 4 bits. 
FFFO7FFF 8F 57 ~~ O1 4 477 CMPL R7, #°XFFFOCEFF 3; Is rounding bit 0, others 1? 
4 13° 018 of8 BEQL CALLTD : If so, call OTS$CVT_T_D. 
00008000 8F D1 at 5 47 CMPL R7, #*x00008000 3; Is rounding bit 1, others 0? 
25 613 «4018C = 480 BEQL ALLTD ; If so, call OTSSCVT_T_D. 
06 6C 91 O18€ 481 STORE1: CMPB (AP), #<ext_bits/4> : Is sixth argument present? 
OA 3 191 ret BGEQU XT : Branch if so. 
14 52 oe 5 133 4 S #V_DONTROUND, R2, NORND ; If bit 3 is set, don't round. 
08 BC 54 76 0197 484 CVTDF R4> avalue(AP) : Store rounded value. 
| ia 198 485 RB R 3; And return. 
18 AC OD 19D 4 § EXTBIT: TSTL ext _ bits (AP) ; ext_bits might be zero. 
09 1 1A 4 BEQL N ; Skip this code if ext_bits(AP)=0. 
55 55 F8 a 7 1A 488 ASHL #-8, RS, R5 3 Align next 8 bits in R5<0:7>. 
‘8 BC . 3 1A 489 MOVB R5, @ext_bits (AP) ; Store extra precision bits. 
0 Bf 33 5 1AB 490 NORND: MOVF R4, @value(AP) ; Store unrounded value. 
0 1 OD TAF «6.491 RET1: MOVL #S$$_NORMAL, RO 3; Indicate success. 
04 18¢ 136 RET 3; Return to caller. 
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495 ;+ 
$3 ; Here to call OTSSCVT_T_D. Build a List of five arguments, including 
;_any passed by the vatler: on the stack. 


3 GALLTD: SUBL #8, SP 


5E 08 C2 3 Mak ¢ room for double result. 
3; (This sopet re igcatton may or 
7E Ds CLRL=(SP) : Provide de Pane ty fiten org. 
7E C CLRO -(SP) 3; Provide default 3rd, 4th arg. 
57 $f Ge MOVZBL (AP), R7 3; Extend argument count. 
6C47 OD 10$ PUSHL CaP)ER ZI : Copy each argument passed. 
FA 57 F SOBGTR R7, 10% ; Step to next argument. 
04 AE 14 AE bE MOVAL 20(SP), 4(SP) ; Substitute our result field. 
00000000'GF 05 FB CALLS #5, G*OTSSCVT_T_D : Call double input conversion, 
; always passing ve arguments. 
03 50 8 BLBS RO, 208 : If successful prec eed. 
FE74 31 BRW ERROR : Else return OfS$. INPCONERR. 
54 BE D 208 MOVQ (SP)+ 3: Transfer result fo R4:R5. 
B41 BRB ST foret * : Continue. 


; Table of powers of ten. This is a zero-origin table whose Oth entr rh 
in is never referenced (since we never want to multiply/divide by 10**0). 


_oe QUAD 


—=OONMMMMOVCVCIVTVVTVTVTVTVCOMOOOroOWWwWwwIwTwVTwVwIIw 


SPARAMOAHMO HHNNNVOOOOCWODODOWBOVOOP FKP PPP PWV *WWOS POO 


$0018 TENTAB=. 

0004 -QUAD %*x0000000000004 2° ; DOUBLE 1.0E1 
g - QUAD 44 4 4 f : DOUBLE 1 .BE¢ 

A -QUAD =*X 38 457A ; »DOUBLE 1.0E 

ig 0 40004 if ; DOUBLE 1.0€4 

8 ~ QUAD 44 0500 reg ; «DOUBLE 1.0E5 
A74 QUAD = *X0 3 $e 4A74 ; »DOUBLE 1. eg 

C18 -QUAD = *X 6804C18 ; DOUBLE 1.0€ 
DBE QUAD *x0000 C Pye ; -DOUBLE 1.0E8 

F6 TENS: UAD *x0000000 tht ; DOUBLE 1.0E9 
F9511 TEN10: .QUAD %x0000000002F 9511 ; DOUBLE 1.0€10 


HANDLER: 

0000 ‘4 -WORD “M<> ; Save nothing 
3; The only anticipated exceptions are floating overflow and floating 
; ; underflow. Continue at ERROR in either case. Otherwise resignal. 


=O OO NIA NE WWIN OOD NAME WIN OOD NA NEI SO OD NAULE WI  O OONOAUE UO 

oO 
td 
> 
— 

> 
Pd 
oO 


WAR ERR REESE PUAN AIROPINIPONINININND 2 2 2 OOO OOOO OOO 


2 


PRIPPPIPIPIPINIPIPIPOPIPIPIPUNONPINPINIPIPIPIPIPUNINY 


AWA BE AAAI AAA AAI III 


50 o A dO MOVL cure -SIGARGLST(AP), RO; RO = address of signal array 
048C 8F a Hay HFS$L-SIG_NAME(RO), "#SSS_ FLTOVF ; Overflow trap? 
049C BF 04 } a oor CHFSL_SIG_NAME(RO), #SS$_FLTUND ; Underflow trap? 
0484 BF 04 h a ieee CHFSL_SIG_NAME(RO), #SSS_FLTOVF_F ; Overflow fault? 
04C4 BF 04 . * eg cure. SIG_NAME(RO), #SSS_FLTUND_F ; Underflow fault? 
51 8 AC (OD ERR: MOVL cH L_MCHARGLST(AP), R1 ; R1 = addr of mechanism array 
Al oO TSTL CHF SL_-MCH_DEPTH(R1) 3 iS the depth zero? 
OA 1 BNEQ RESIG™ ; No: resignal. 


grgegyT’ indvotostrinn processing” nt "BSE 13RS PPiF81b HOMERTE Resor MeUTeP mans1 729% (14) 
08 AO FOES fF i : : mu SEER oes GMme"* 00S return PC to ERROR. 
: 9 RESIG: 


50 00000918 8F 9 MOVL #SS$_RESIGNAL, RO ; None of the above; resignal. 
RET turn. 
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91885 fable of o fsets to action rout ines patsy 90:98 d0 LIBRTL.SRCJOTSCVTTF .MAR;1 . (14) 


7 -SBTTL Table of offsets to action routines 
1 HT=TAB-ACTION 3 Tab 
71 er=ERROR-ACTION 3; Error 
1 DP=POINT-ACTION : Decimal point 
1 BL=BLANK=-ACTION : Blank 
1 DG=DIGIT-ACTION 3; Digit (1-9) 
00 } SI=SIGN-ACTION i Sign (+ or -) 
4 : (ASCII dependency.) 
04 04 00 04 04 04 04 04 8% M1 ; OFFSET: .BYTE er,er,er.,er,er,er,er,er,er,H1,er,er,er,er,er,er ; 00-0F 
04 04 04 04 04 04 04 04 ? Bp 573 -BYTE er,er,er,er,er,er,er,er,er,er,er,er,er,er,er,er ; 10-1F 
GE 04 04 04 04 04 04 04 ; 7 4 574 -BYTE B6L.er,er.er,er,er,er,er,er,er,er,Sl,er,S1,DP,er ; 20-2F 
04 04 22 22 22 22 22 22 22 : 33 bf vs 575 -BYTE 2R,DG,DG,0G,0G,DG,DG,0G,0G,DG.er,er.,er.,er,er,er ; 30-3F 
B1 
B1 


379 «END 


Ao A ; Convert text to real (F only) ot; i ast th 90:6 
5 R Og 
® 
i 
+ R 


08 
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A 2 INPCONERR 


IT 
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grows ewe eweaseaaant 


! Psect synopsis ! 


$e emeeenaeovasean} 


PSECT name Allocation PSECT No. Attributes 

aes ° ( . ( 0.) NOPIC USR CON ABS LCL NOS oa NOEXE NORD wowat NOVEC BYTE 
$aBs ( + ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
OTSSCODE Bi (¢ 689.) 5. Bet PIC USR CON REL LCL SHR EXE’ RD NOURT NOVEC QUAD 


$owwcaareasececaamoceanoen ¢ 


! Performance indicators ! 


btecamnan nn ee nano nsanaomaaad 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 : 9 

— processing J 8 : 

Syabo table sort * : 0:5 

ad, table output 1 : :¢ 

Psect synopsis output 700. 

Cross-reference output :00. 2 

Assembler run totals 48 :05.6 


1¥g.¥9 rking set Limit was 1900 pages. 
, 1 P bytes (61 poges) of virtual memory were used to buffer the intermediate code. 
re were 30 pages of symbol table space al ecoted 5 hold 555 non-local ne 11 local symbols. 
i source lines were read in Pass 1, producing 1 fob ect records in Pass 
10 pages of virtual memory were used to define 9 macros. 


Pome ee sree e eee esse nee eee ne ae} 


! Macro Library statistics . 


honaeine: os 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBJSTARLET.MLB;2 ae | .: 
529 GETS were required to define 6 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LISS:OTSCVTTF/OBJ=OBJS:OTSCVTTF MSRCS:OTSCVTTF /UPDATE=(ENHS:OTSCVTTF) 
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